home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1997 April
/
EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso
/
EARCD
/
gfx
/
misc
/
ADProScripts.lha
/
Loaders
/
Random_File_
< prev
Wrap
Text File
|
1996-04-25
|
1KB
|
47 lines
/* $VER: Random_File_ 1.08 (25.4.96)© Felix C. Coronado
*/
ADDRESS "ADPro"
OPTIONS RESULTS
NL='0A'x
IF ~SHOW('L',"rexxsupport.library") THEN CALL ADDLIB("rexxsupport.library",0,-30)
SIGNAL ON SYNTAX
CALL NULL()
SIGNAL OFF SYNTAX
FileDir=GETCLIP('Directory')
ADPRO_TO_FRONT
GETDIR "'Select a directory'" FileDir
IF rc=10 THEN EXIT
FileDir=ADPro_Result
SETCLIP('Directory',FileDir)
FileName=TRANSLATE(SHOWDIR(FileDir,'FILE',':'),'/ ',' :')
DO WHILE WORDS(FileName)>1
FileName=SUBWORD(Filename,TRUNC(WORDS(FileName)/2+1.5))||' '||SUBWORD(Filename,1,TRUNC(WORDS(FileName)/2+.5))
FileName=DELWORD(FileName,RANDOM(1,WORDS(FileName),TIME(seconds)),1)
END
FileName=TRANSLATE(COMPRESS(FileName),' ','/')
ADPRO_TO_FRONT
OKAY1 FileName
IF RIGHT(FileDir,1)~=':' & FileDir~='' THEN FileDir=FileDir||'/'
LFORMAT
OldLoader=ADPro_Result
LFORMAT 'UNIVERSAL'
LOAD FileDir||FileName
IF rc=10 THEN DO
ADPRO_TO_FRONT
OKAY1 'Error loading file'||NL||,
FileDir||FileName
END
LFORMAT OldLoader
IF rc=10 THEN DO
ADPRO_TO_FRONT
OKAY1 'Error: Loader not found'||NL||,
'"Loaders2/'||OldLoader||'"'
END
EXIT
SYNTAX:
ADPRO_TO_FRONT
OKAY1 'Error: rexxsupport.library'||NL||,
'not available'
END